fix initial stack depth

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index adda0537a6e1ce3ed0db7f17f2bd44bb31225e7a..fd37d1645a255b584efa70ad4b8a54619618c05f 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -983,7 +983,6 @@ This will be called at load-time."
          (comp-func func)
          (comp-pass (make-comp-limplify
                      :curr-block (make--comp-block)
-                     :sp -1
                      :frame (comp-new-frame 0))))
     (comp-make-curr-block 'entry (comp-sp))
     (comp-emit-annotation "Top level")
@@ -1034,7 +1033,6 @@ This will be called at load-time."
   (let* ((frame-size (comp-func-frame-size func))
          (comp-func func)
          (comp-pass (make-comp-limplify
-                     :sp -1
                      :frame (comp-new-frame frame-size)))
          (args (comp-func-args func))
          (args-min (comp-args-base-min args)))